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3 1 608) 
g 0 

Fk 5 0008 
3 5 0005 1 
; 6 8008 1 
; 7 0007 1 
3 8 0008 1 
; 9 0009 1 
; 10 0010 1 
. Ss 0011 1 
3 i pore 1 
3 (64 0013 1 
s 4 0014 1 
; 0015 1 
: 0016 1 
. oF 0017 1 
; 1 0018 1 
3; 19 0019 1 
; @ 0020 1 
3; ef 0021 1 
; $8 ot 4 1 
we. 0023 1 
; 0024 1 
a 0025 1 
; 626 0026 1 
3; a 0027 1 
; a 0028 1 
; $3 ik 1 
3 0 0030 1 
: a 0031 1 
s 32 0032 1 
: 2 0033 1 
a 0034 1 
.: 0035 1 
; » 0036 1 
; a 0037 1 
. 0038 1 
; 0039 1 
s £0 0040 1 
: 41 0041 1 
3s 462 B066 1 
s 65 00435 1 
: 666 0044 1 
; «645 0045 1 
; 46 0046 1 
; «647 0047 1 
; 648 0048 1 
: 69 0049 1 
; = 0050 1 
ie 0051 +1 
. O36 1 
s 53 0053 1 
s 6 0054 1 
s >%5 0055 1 
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MODULE BASSNOT_IMP ( ! Unimplemented entr po! nts 
IDENT = "1-006" i File: BASNOTIMP.BS> Edit: MDL1006 


BEGIN 


RRR AAA AAEAR AAA EE EAE HERAT A EEE A EAA AAAHERAREETREAERERERE EE HeEe 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
2 
® 
a 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. « 
® 
ie THE INF ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
® 
* 
® 
© 
® 
® 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRA RARER AAA AAERAARAAAAAAAAEAA TEETER eKeKeAe eee 


+ 

FACILITY: BASIC-PLUS-2 Miscellaneous 

ABSTRACT: 
This module contains the unimplemented entry points. As each 
entry point is sseuenentee, it should be removed from this 
module. Eventuaily, this module will disappear. 

ENVIRONMENT: VAX-11 User Mode 

AUTHOR: John Sauter, CREATION DATE: 04-SEP-1979 

MODIFIED BY: 

1-001 = Original. 

1-002 = Remove BASSSYS, add BPASMESAG BPASASSIGN BPASDEASSIGN, 

BPASDEASS ALL and BPASSET DEF. JBS 
1-003 - Renove BPASAE 54 G, BPASASSING, BPASDEASSIGN and BPASDEALL_ALL. 
1-004 - Remove BASSMAT_INV RW ag 79 


Remove BASSCHAIN. JBS 13-N 
1-006 - make the routine BASSNOT_ InP. GLOBAL. MDL 25-May-1983 
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SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Not implemented 


! Macros for defining PSECTs 


! Declare psects for BASS facility 


! Signal a fatal BASIC error 


BASSNOT_IMP 

1-006 

3 7 0036 1! 

3 8 057 1 ! SWITCHES: 

3 9 058 1! 

; @& 059 #1 

s 6) goes 1 

.e 061 1 

: 6 Bog . 4 

; 666 0065 1 ! LINKAGES: 

s 65 0064 1! 

;- & 0065 1! NONE 

; Of 4] 1! 

; @& 99 1 ! TABLE OF CONTENTS: 

; 69 066 1! 

; 70 0069 1 

; 71 0070 1 FORWARD ROUTINE 

ee: 0071 1 BASSNOT_IMP : NOVALUE; 
“eee 0072 #1 

3 74 0073 1! 

; 75 0074 1 ! INCLUDE FILES: 

3 76 0075 1! 

3 77 0076 1 

; 78 0077 1 REQUIRE "RTLIN:RTLPSECT'; 
: 79 HEE 1 

3; & 0173 1! 

; By 0174 1 ! MACROS: 

ag 0175 1! 

; § 0176 1! NONE 

;s @ 0177 1! 

; 0178 1 ! EQUATED SYMBOLS: 

s Ee 4 1! 

s 87 180 1 

; 688 0181 1 GLOBAL BIND 

; Bis¢ 1 ROUTINE 

: 90 018 1 BASSPEEK = BASSNOT_IMP, 
> oe 0184 1 BASSFSS = BASSNOT_IMP, 
; 4 0185 1 BPASSET_DEF = BASSNOT_IMP; 
; 0186 1 

; 94 0187 1! 

; 8695 0188 1 ! PSECTS: 

; @* 0189 1! 

: oF 0190 1 DECLARE_PSECTS (BAS); 

;s 0191 1! 

; 99 8136 1 ! OWN STORAGE: 

3; 100 313 1! 

; 101 1946 1! NONE 

3 106 0195 1! 

: 10 0196 1 ! EXTERNAL REFERENCES: 

: 104 0197 1! 

3 105 0198 1 

: 106 3h 44 1 EXTERNAL ROUTINE 

; 107 200 1 BASSSSTOP : NOVALUE; 

; 108 8 01 1 

3; 109 og 1 !¢ ' 
: 119 B2 } : The following are the error codes used in this module. 
3 6 b50¢ 1 

s 11 0206 1 EXTERNAL LITERAL 


eee 


SE 


BASSK_NOTIMP : 


UNSIGNED (8); 


Ff 13 
16-Sep-1984 00:50:4 VAX-11 Bliss-32 v4.0-7 
14-Sep-1984 11:55:2 CBASRTL. SRC.JBASNOTIMP. . 2:1 


! Not implemented 
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BASSNOT_IMP 
; 118 8 | 
Wo gg 
> 121 13 1 
. § ; 14 1 
- ¢§ 1§ 1 
: 158 3 | 
: 1 6 18 1 
; 4 0 | 
a . 
: (131 0 § 1 
7's ¢ 0224 1 
4] $35 | 
: 135 0 33 1 
3 0228 1 
'. oS ¢2 1 
; 138 0230 1 
: 139 0231 1 
; 140 0 § 1 
Wo BEY 
‘eB  #ey 
> 145 0 1 
: 146 0 3 1 
3; (147 0239 1 
: 48 p529 8 
+ 150 0242 1 


r 


13 

1bese -1984 50:4 AX-11 Bliss-32 V4.0-74 P 4 

eee 90:29:56 EBASRTL SRE BASNOT INP. B%2;1 “ (3) 
GLOBAL ROUTINE BASSNOT_IMP ! Signal BAS$_NOTIMP 

: NOVALUE = 

lee 
: FUNCTIONAL DESCRIPTION: 
Signal BASS_NOTIMP for the unimplemented entry points. 
FORMAL PARAMETERS: 
i NONE 
! 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
; NONE 
i 
! 
; 
i 
' 
i 
i 
i 
i 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Signals BAS$_NOTIMP 


BEGIN 
BASSSSTOP (BASS$K_NOTIMP); 
END; ! end of BASSNOT_IMP 


TITLE BASSNOT_IMP 
“IDENT \1-006\ 

.EXTRN BASSSSTOP, BASSK_NOTIMP 
-PSECT _BASSCODE,NOWRT, SHR, PIC.2 


0000 60000 -ENTRY BASSNOT_IMP, Save nothing : 0209 
7E 00G 8F 9A 4 'f3 MOVZBL #BASSK_ROTIMP, -(SP) : 0241 
000000006 00 01 FB 000 CALLS #1, BASS$STOP : 
04 0000D ; 0242 
; Routine Size: 14 bytes, Routine Base: _BASSCODE + 0000 
3 6151 0243 1 END ! end of module BASSNOT_IMP 
; 13¢ Bsee 
; % 0245 0 ELUDOM 


‘gaghyor ne ifrdeort9ge 00:59:48 yume OLiegsae veige7eg, Page 


pr neee 1 EF se BASSNOT_IMP 

BASSFSS== BASSNOT_ IMP 
BASSPEEK== BASS$NOT_ IMP 

H PSECT SUMMARY 

: Name Bytes Attributes 

: _BASSCODE 14 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

ls COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASNOTIMP/0BJ=0BJ$ :BASNOT IMP MSRC$:BASNOT IMP/UPDATE=(ENH$:BASNOT IMP 

Stee: 14 code + 0 data bytes 
un Time 00:01.7 


eee tines 00:05.2 
Lines/CPU Min: 8546 
enema (Petes 20232 
owen Used: 16 pages 
Compilation Complete 
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